home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / disk / cdrom / YACDP1_2.lha / YACDP 1.2 / AREXX / ShowCurrent.yacdp < prev    next >
Text File  |  1994-12-05  |  1KB  |  42 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Show current position.               */
  2.  
  3. SIGNAL ON SYNTAX                            /* check syntax                */
  4. SIGNAL ON ERROR                             /* check if command succeeds   */
  5. OPTIONS FAILAT 6                            /* ignore warnings             */
  6. ADDRESS 'YACDP'                             /* send to YACDP               */
  7.  
  8. /* -------------------------- BEGIN OF YOUR CODE ------------------------- */
  9.  
  10. 'GETVAR STATUS'
  11.  
  12. if (STATUS > 2) then do
  13.   'LOCKVARS'
  14.   'GETVAR TRACK'
  15.   'GETVAR INDEX'
  16.   'GETVAR TRACKSTART NUM=1'
  17.   'GETVAR BLOCK B0 MODE=0'
  18.   'GETVAR BLOCK B1 MODE=1'
  19.   'GETVAR BLOCK B2 MODE=2'
  20.   'GETVAR RELBLOCK R0 MODE=0'
  21.   'GETVAR RELBLOCK R1 MODE=1'
  22.   'GETVAR RELBLOCK R2 MODE=2'
  23.   'UNLOCKVARS'
  24.   say 'Track      :' TRACK
  25.   say 'Index      :' INDEX
  26.   say 'Abs. time  :' B1' / 'B2
  27.   say 'Abs. block :' B0-TRACKSTART '['B0']'
  28.   say 'Rel. time  :' R1' / 'R2
  29.   say 'Rel. block :' R0
  30. end
  31.  
  32. /* --------------------------- END OF YOUR CODE -------------------------- */
  33. EXIT
  34.  
  35. SYNTAX:
  36. SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  37. EXIT
  38.  
  39. ERROR:
  40. SAY "YACDP error at line" SIGL ":" ERR
  41. EXIT
  42.